home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / blt300.zip / BLT.PPS < prev    next >
Text File  |  1995-04-02  |  4KB  |  160 lines
  1. ;SUB Bulletin PPE. By Mukunda Modell. SysOp of The Round Table BBS
  2. ;417-683-4953
  3. ;********************************************************************
  4. STRING BLTNUM
  5. INTEGER FILEDAT
  6. STRING FILEDAT1
  7. STRING HEADER1
  8. STRING HIGHBLT
  9. STRING HOLD
  10. STRING KEY
  11. STRING TODATE
  12. STRING TOKEN
  13. ;********************************************************************
  14. TODATE = DATE()
  15. HEADER1 = U_NAME()
  16. ;********************************************************************
  17. GETTOKEN token   ;Get information from the command line
  18. IF (UPPER(TOKEN) = "P") GOTO PUBLIC
  19. CLS
  20. FOPEN 1,PPEPATH()+"BLT"+TOKEN+".DAT",O_RW,S_DN
  21. DELAY 1
  22.     HIGHBLT = 0
  23.  
  24.     WHILE (!FERR(1)) DO
  25.         FGET 1,HOLD
  26.         HIGHBLT = HIGHBLT + 1
  27.     ENDWHILE
  28. :S
  29.     CLS
  30.     DISPFILE PPEPATH()+"BLT"+TOKEN+".MNU",0   ;Display the Bulletin MENU file
  31.     INPUTSTR "(Q)uit, (1-"+STRING(HIGHBLT)+"), Bulletin List Command",BLTNUM,@X0E,2,"1234567890Qq",NEWLINE
  32.     IF (BLTNUM >= 1 & BLTNUM <= HIGHBLT & UPPER(BLTNUM) <> "Q") THEN
  33.         CLS
  34.         DISPFILE READLINE(PPEPATH()+"BLT"+TOKEN+".DAT",BLTNUM),SEC + GRAPH + LANG
  35.         WAIT
  36.         BLTNUM = "q"
  37.         GOTO S
  38.     ELSEIF (UPPER(BLTNUM) = "Q") END
  39.     ENDIF
  40.  
  41.     END
  42.  
  43. :CLOSEALL ;Close all open files
  44. FCLOSE 1
  45. FCLOSE 2
  46. FCLOSE 3
  47. FCLOSE 4
  48. FCLOSE 5
  49. FCLOSE 6
  50. FCLOSE 7
  51. RETURN
  52.  
  53. :GETAKEY
  54. KEY = -1
  55. WHILE (KEY = -1) KEY = INKEY()
  56. RETURN
  57.  
  58. :PRINTEND
  59. ANSIPOS 78,GETY()
  60. PRINTLN "@X1F│@X0F  "
  61. RETURN
  62.  
  63. :PUBLIC
  64. FOPEN 1,PPEPATH()+"PUBLIC.DAT",O_RW,S_DN
  65. CLS
  66. PRINTLN "@X0EBULLETIN.PPE@X0F V2.00 by Mukunda Modell"
  67. PRINTLN "@X0FThe Round Table BBS 417-683-4953"
  68. PRINTLN "@X0CREGISTERED@X0F to The Round Table BBS!"
  69. NEWLINES 2
  70. PRINTLN "@X1F┌────────────────────────────────────────────────────────────────────────────┐"
  71.  
  72. PRINT "@X1F│  #1    =    @X1D"+STRING(READLINE(PPEPATH()+"PUBLIC1",2))
  73. CLREOL
  74. ANSIPOS 50,GETY()
  75. PRINT STRING(READLINE(PPEPATH()+"PUBLIC1",1))
  76. GOSUB PRINTEND
  77.  
  78. ANSIPOS 1,GETY()-1
  79. PRINT "@X1F│  #2    =    @X1D"+STRING(READLINE(PPEPATH()+"PUBLIC2",2))
  80. CLREOL
  81. ANSIPOS 50,GETY()
  82. PRINT STRING(READLINE(PPEPATH()+"PUBLIC2",1))
  83. GOSUB PRINTEND
  84.  
  85. ANSIPOS 1,GETY()-1
  86. PRINT "@X1F│  #3    =    @X1D"+STRING(READLINE(PPEPATH()+"PUBLIC3",2))
  87. CLREOL
  88. ANSIPOS 50,GETY()
  89. PRINT STRING(READLINE(PPEPATH()+"PUBLIC3",1))
  90. GOSUB PRINTEND
  91.  
  92. ANSIPOS 1,GETY()-1
  93. PRINT "@X1F│  #4    =    @X1D"+STRING(READLINE(PPEPATH()+"PUBLIC4",2))
  94. CLREOL
  95. ANSIPOS 50,GETY()
  96. PRINT STRING(READLINE(PPEPATH()+"PUBLIC4",1))
  97. GOSUB PRINTEND
  98.  
  99. ANSIPOS 1,GETY()-1
  100. PRINT "@X1F│  #5    =    @X1D"+STRING(READLINE(PPEPATH()+"PUBLIC5",2))
  101. CLREOL
  102. ANSIPOS 50,GETY()
  103. PRINT STRING(READLINE(PPEPATH()+"PUBLIC5",1))
  104. GOSUB PRINTEND
  105.  
  106. ANSIPOS 1,GETY()-1
  107. PRINTLN "@X1F└────────────────────────────────────────────────────────────────────────────┘@X0F"
  108. NEWLINE
  109. INPUTSTR "Enter a Bulletin Number or (N) to add your own",BLTNUM,@X0F,1,"12345Nn",NEWLINE
  110.  
  111. IF (UPPER(BLTNUM) = "N") THEN
  112.     CALL PPEPATH()+"EDIT.PPE"
  113.     CLS
  114.     DISPFILE PPEPATH()+"TEMP.!!!",0
  115.     NEWLINE
  116.         FOPEN 5,PPEPATH()+"TEMP.!!!",O_RW,S_DN
  117.         FILEDAT = READLINE(PPEPATH()+"FILEINFO.DAT",1)
  118.         FILEDAT1 = FILEDAT+1
  119.  
  120.         IF (FILEDAT < 5) THEN
  121.             DELETE PPEPATH()+"PUBLIC"+FILEDAT1
  122.             FOPEN 7,PPEPATH()+"PUBLIC"+FILEDAT1+".",O_RW,S_DN
  123.             FPUTLN 7,"From: ",HEADER1
  124.             FPUTLN 7,"Subject: "+READLINE(PPEPATH()+"TEMP.@@@",1)
  125.             WHILE (!FERR(5)) DO
  126.                 FGET 5,HOLD
  127.                 FPUTLN 7,HOLD
  128.             ENDWHILE
  129.             DELETE PPEPATH()+"FILEINFO.DAT"
  130.             FOPEN 6,PPEPATH()+"FILEINFO.DAT",O_RW,S_DN
  131.             FPUTLN 6,FILEDAT+1
  132.             FCLOSE 7
  133.             WAIT
  134.             GOSUB CLOSEALL
  135.             GOTO PUBLIC
  136.         ELSE
  137.             DELETE PPEPATH()+"PUBLIC1"
  138.             FOPEN 7,PPEPATH()+"PUBLIC1.",O_RW,S_DN
  139.             FPUTLN 7,"From: ",HEADER1
  140.             FPUTLN 7,"Subject: "+READLINE(PPEPATH()+"TEMP.@@@",1)
  141.             WHILE (!FERR(5)) DO
  142.                 FGET 5,HOLD
  143.                 FPUTLN 7,HOLD
  144.             ENDWHILE
  145.             DELETE PPEPATH()+"FILEINFO.DAT"
  146.             FOPEN 6,PPEPATH()+"FILEINFO.DAT",O_RW,S_DN
  147.             FPUTLN 6,"1"
  148.             FCLOSE 6
  149.             WAIT
  150.             GOSUB CLOSEALL
  151.             GOTO PUBLIC
  152.         ENDIF
  153.  
  154. ELSEIF (BLTNUM >= 1 & BLTNUM <= 5) THEN
  155.     CLS
  156.         DISPFILE READLINE(PPEPATH()+"PUBLIC.DAT",BLTNUM),0
  157.     WAIT
  158.     GOTO PUBLIC
  159. ENDIF
  160. END